# Plausibility: theft only ------------------------------------------------

# Make table instead of plots --------------------------------------------------------


# Table for main plausibility results
table_data <- 
  prepare_multiple_tables_data_no_perc(
    prime_texts = c(
      "Mob responding to [observation / suspicion] of crime could happen in my village.",
      "Mob targeting [perpetrator / accused] could happen in my village.", 
                    "Mob instigated by [bystander / victim] could happen in my village.", 
                    "Mob could happen when all three primes [reduce / heighten] false accusation risk"),
    prime_vars = c("mob_suspects","target_accused", "victim_instigates",  "interaction"),
    treatment_primes = c("Suspect was accused","Suspect described as `accused'", "Victim instigates mob",  "All three primes heighten risk of false accusation"),
    control_primes = c("Suspect was observed","Suspect described as `perpetrator'", "Bystander instigates mob",  "All three primes reduce risk of false accusation"),
    outcome_var = "mob_violence_plausibility",
    data_list = list(
      ug3 %>% filter(offense_black_magic == 0),
      ug3 %>% filter(offense_black_magic == 0),
      ug3 %>% filter(offense_black_magic == 0),
      ug3 %>% filter(!is.na(interaction) & offense_black_magic == 0)
    )
  )



sink("04_manuscript/tables/plausibility_main_table_full_outcome.tex")
build_table(table_data = table_data)
sink()


# Table for plausibility of woman being targeted

table_data <- 
  prepare_multiple_tables_data_no_perc(
    prime_texts = c("Mob targeting [man / woman] could happen in my village."),
    prime_vars = c("accused_man"),
    treatment_primes = c("Mob targets man"),
    control_primes = c("Mob targets woman"),
    outcome_var = "mob_could_happen",
    data_list = list(
      ug3 %>% filter(offense_black_magic == 0)
    )
  )

sink("04_manuscript/tables/accused_woman_full_outcome.tex")
build_table(table_data = table_data)
sink()







